Row

confirmed

12629

PCR tests

510149

Antibody Tests

88745

death

713

Row

Map

Daily cumulative cases

Row

Zipcode cases

Town cases

Row

Daily counts

Daily counts

date confirmed new active recovered deaths
224 2020-10-23 12629 80 NA NA 713
223 2020-10-22 12549 64 NA NA 713
222 2020-10-21 12485 -4 NA NA 713
221 2020-10-20 12489 75 NA NA 708
220 2020-10-19 12414 107 NA NA 708
219 2020-10-18 12307 0 NA NA 708
218 2020-10-17 12307 0 NA NA 708
217 2020-10-16 12307 100 NA NA 708
216 2020-10-15 12207 0 NA NA 708
215 2020-10-14 12207 31 NA NA 708
214 2020-10-13 12176 38 NA NA 706
213 2020-10-12 12138 131 NA NA 706
212 2020-10-11 12007 0 NA NA 706
211 2020-10-10 12007 115 NA NA 706
210 2020-10-09 11892 0 NA NA 706
209 2020-10-08 11892 35 NA NA 706
208 2020-10-07 11857 27 NA NA 706
207 2020-10-06 11830 70 NA NA 694
206 2020-10-05 11760 185 NA NA 694
205 2020-10-04 11575 0 NA NA 694
204 2020-10-03 11575 0 NA NA 694
203 2020-10-02 11575 77 NA NA 694
202 2020-10-01 11498 76 NA NA 694
201 2020-09-30 11422 47 NA NA 694
200 2020-09-29 11375 132 NA NA 693
199 2020-09-28 11243 0 NA NA 693
198 2020-09-27 11243 145 NA NA 693
197 2020-09-26 11098 0 NA NA 693
196 2020-09-25 11098 0 NA NA 693
195 2020-09-24 11098 133 NA NA 693
194 2020-09-23 10965 -10 NA NA 693
193 2020-09-22 10975 44 NA NA 690
192 2020-09-21 10931 145 NA NA 690
191 2020-09-20 10786 0 NA NA 690
190 2020-09-19 10786 0 NA NA 690
189 2020-09-18 10786 47 NA NA 690
188 2020-09-17 10739 43 NA NA 690
187 2020-09-16 10696 85 NA NA 690
186 2020-09-15 10611 149 NA NA 690
185 2020-09-14 10462 67 NA NA 682
184 2020-09-13 10395 181 NA NA 682
183 2020-09-12 10214 0 NA NA 682
182 2020-09-11 10214 0 NA NA 682
181 2020-09-10 10214 53 NA NA 682
180 2020-09-09 10161 -35 NA NA 682
179 2020-09-08 10196 39 NA NA 681
178 2020-09-07 10157 53 NA NA 681
177 2020-09-06 10104 107 NA NA 681
176 2020-09-05 9997 0 NA NA 681
175 2020-09-04 9997 83 NA NA 681
174 2020-09-03 9914 162 NA NA 681
173 2020-09-02 9752 73 NA NA 681
172 2020-09-01 9679 0 NA NA 678
171 2020-08-31 9679 66 NA NA 678
170 2020-08-30 9613 89 NA NA 678
169 2020-08-29 9524 0 NA NA 678
168 2020-08-28 9524 43 NA NA 678
167 2020-08-27 9481 42 NA NA 678
166 2020-08-26 9439 75 NA NA 678
165 2020-08-25 9364 51 NA NA 676
164 2020-08-24 9313 18 NA NA 676
163 2020-08-23 9295 100 NA NA 676
162 2020-08-22 9195 81 NA NA 676
161 2020-08-21 9114 41 NA NA 676
160 2020-08-20 9073 0 NA NA 676
159 2020-08-19 9073 81 NA NA 676
158 2020-08-18 8992 9 NA NA 674
157 2020-08-17 8983 30 NA NA 674
156 2020-08-16 8953 49 NA NA 674
155 2020-08-15 8904 0 NA NA 674
154 2020-08-14 8904 48 NA NA 674
153 2020-08-13 8856 23 NA NA 674
152 2020-08-12 8833 66 NA NA 674
151 2020-08-11 8767 0 NA NA 671
150 2020-08-10 8767 158 NA NA 671
149 2020-08-09 8609 0 NA NA 671
148 2020-08-08 8609 56 NA NA 671
147 2020-08-07 8553 -54 NA NA 671
146 2020-08-06 8607 66 NA NA 671
145 2020-08-05 8541 43 NA NA 671
144 2020-08-04 8498 0 NA NA 669
143 2020-08-03 8498 78 NA NA 669
142 2020-08-02 8420 0 NA NA 669
141 2020-08-01 8420 55 NA NA 669
140 2020-07-31 8365 61 NA NA 669
139 2020-07-30 8304 69 NA NA 669
138 2020-07-29 8235 0 NA NA 669
137 2020-07-28 8235 58 NA NA 669
136 2020-07-27 8177 16 NA NA 663
135 2020-07-26 8161 31 NA NA 663
134 2020-07-25 8130 48 NA NA 663
133 2020-07-24 8082 0 NA NA 663
132 2020-07-23 8082 77 NA NA 663
131 2020-07-22 8005 0 NA NA 663
130 2020-07-21 8005 71 NA NA 663
129 2020-07-20 7934 -6 NA NA 657
128 2020-07-19 7940 19 NA NA 657
127 2020-07-18 7921 32 NA NA 657
126 2020-07-17 7889 57 NA NA 657
125 2020-07-16 7832 33 NA NA 654
124 2020-07-15 7799 57 NA NA 652
123 2020-07-14 7742 65 NA NA 652
122 2020-07-13 7677 0 NA NA 646
121 2020-07-12 7677 25 NA NA 646
120 2020-07-11 7652 28 NA NA 646
119 2020-07-10 7624 48 NA NA 646
118 2020-07-09 7576 31 NA NA 644
117 2020-07-08 7545 30 NA NA 642
116 2020-07-07 7515 49 NA NA 642
115 2020-07-06 7466 42 NA NA 639
114 2020-07-05 7424 25 NA NA 639
113 2020-07-04 7399 44 NA NA 639
112 2020-07-03 7355 54 NA NA 639
111 2020-07-02 7301 39 NA NA 639
110 2020-07-01 7262 70 NA NA 637
109 2020-06-30 7192 64 NA NA 637
108 2020-06-29 7128 0 NA NA 636
107 2020-06-28 7128 29 NA NA 636
106 2020-06-27 7099 68 NA NA 636
105 2020-06-26 7031 26 NA NA 634
104 2020-06-25 7005 38 NA NA 634
103 2020-06-24 6967 0 NA NA 634
102 2020-06-23 6967 53 NA NA 634
101 2020-06-22 6914 0 NA NA 623
100 2020-06-21 6914 22 NA NA 623
99 2020-06-20 6892 71 NA NA 623
98 2020-06-19 6821 36 NA NA 621
97 2020-06-18 6785 36 NA NA 608
96 2020-06-17 6749 0 NA NA 608
95 2020-06-16 6749 50 NA NA 608
94 2020-06-15 6699 35 NA NA 591
93 2020-06-14 6664 0 NA NA 591
92 2020-06-13 6664 83 NA NA 591
91 2020-06-12 6581 0 NA NA 587
90 2020-06-11 6581 38 NA NA 587
89 2020-06-10 6543 53 NA NA 580
88 2020-06-09 6490 32 NA NA 570
87 2020-06-08 6458 61 NA NA 560
86 2020-06-07 6397 61 NA NA 560
85 2020-06-06 6336 47 NA NA 560
84 2020-06-05 6289 0 NA NA 556
83 2020-06-04 6289 102 NA NA 556
82 2020-06-03 6187 0 NA NA 545
81 2020-06-02 6187 122 NA NA 545
80 2020-06-01 6065 0 NA NA 524
79 2020-05-31 6065 43 NA NA 524
78 2020-05-30 6022 131 NA NA 524
77 2020-05-29 5891 0 NA NA 516
76 2020-05-28 5891 61 NA NA 516
75 2020-05-27 5830 46 NA NA 512
74 2020-05-26 5784 145 NA NA 504
73 2020-05-25 5639 95 NA NA 480
72 2020-05-24 5544 0 NA NA 480
71 2020-05-23 5544 231 NA NA 480
70 2020-05-22 5313 0 NA NA 472
69 2020-05-21 5313 82 NA NA 472
68 2020-05-20 5231 177 NA NA 459
67 2020-05-19 5054 72 NA NA 421
66 2020-05-18 4982 76 NA NA 421
65 2020-05-17 4906 0 NA NA 420
64 2020-05-16 4906 86 NA NA 420
63 2020-05-15 4820 241 NA NA 420
62 2020-05-14 4579 0 NA NA 400
61 2020-05-13 4579 95 NA NA 400
60 2020-05-12 4484 0 NA NA 387
59 2020-05-11 4484 151 NA NA 387
58 2020-05-10 4333 0 NA NA 357
57 2020-05-09 4333 172 NA NA 357
56 2020-05-08 4161 222 NA NA 346
55 2020-05-07 3939 0 NA NA 323
54 2020-05-06 3939 190 NA NA 323
53 2020-05-05 3749 0 NA NA 308
52 2020-05-04 3749 268 NA NA 308
51 2020-05-03 3481 0 NA NA 283
50 2020-05-02 3481 0 NA NA 283
49 2020-05-01 3481 71 NA NA 283
48 2020-04-30 3410 95 NA NA 266
47 2020-04-29 3315 91 NA NA 254
46 2020-04-28 3224 163 NA NA 245
45 2020-04-27 3061 65 NA NA 207
44 2020-04-26 2996 139 NA NA 207
43 2020-04-25 2857 119 NA NA 207
42 2020-04-24 2738 144 NA NA 198
41 2020-04-23 2594 89 NA NA 188
40 2020-04-22 2505 221 NA NA 188
39 2020-04-21 2284 63 NA NA 177
38 2020-04-20 2221 29 NA NA 162
37 2020-04-19 2192 65 NA NA 135
36 2020-04-18 2127 104 NA NA 131
35 2020-04-17 2023 72 NA NA 115
34 2020-04-16 1951 139 NA NA 107
33 2020-04-15 1812 82 NA NA 104
32 2020-04-14 1730 69 1178 479 73
31 2020-04-13 1661 37 1116 479 66
30 2020-04-12 1624 66 1084 479 61
29 2020-04-11 1558 52 1071 430 57
28 2020-04-10 1506 66 1019 430 57
27 2020-04-09 1440 95 989 398 53
26 2020-04-08 1345 110 950 349 46
25 2020-04-07 1235 72 893 303 39
24 2020-04-06 1163 104 910 223 30
23 2020-04-05 1059 114 861 171 27
22 2020-04-04 945 143 758 161 26
21 2020-04-03 802 68 639 141 22
20 2020-04-02 734 131 614 101 19
19 2020-04-01 603 50 510 81 12
18 2020-03-31 553 90 481 62 10
17 2020-03-30 463 49 402 53 8
16 2020-03-29 414 34 375 32 7
15 2020-03-28 380 70 347 27 6
14 2020-03-27 310 89 277 27 6
13 2020-03-26 221 75 200 16 5
12 2020-03-25 146 25 139 5 2
11 2020-03-24 121 25 121 0 0
10 2020-03-23 96 32 96 0 0
9 2020-03-22 64 8 64 0 0
8 2020-03-21 56 9 56 0 0
7 2020-03-20 47 18 47 0 0
6 2020-03-19 29 2 29 0 0
5 2020-03-18 27 7 27 0 0
4 2020-03-17 20 13 20 0 0
3 2020-03-16 7 0 7 0 0
2 2020-03-15 7 4 7 0 0
1 2020-03-14 3 3 3 0 0
---
title: COVID19(Erie county)
date: "`r gsub('\\(updated |\\ EST)|/2020', ' ', attributes(Counts$counts)$update.time)`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    navbar:
      - { icon: fa-github, href: "https://github.com/hubentu/COVID19Erie"}
      - { title: "Erie Case Map", href: "https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1"}
      - { title: "Global Map", href: "https://coronavirus.jhu.edu/map.html"}
    social: menu
    source_code: embed
    vertical_layout: scroll
---

```{r setup, include=FALSE}
library(flexdashboard)
## library(fontawesome)
## library(COVID19Erie)
## pubExposed <- exposedPub()
```

```{r}
Counts <- caseCounts()
counts <- Counts$counts
ctable1 <- rbind(counts,
                c(town = "Total", colSums(counts[,-1])))
ycount <- historyCount$confirmed[historyCount$date == Sys.Date() - 1]
ncount <- attributes(counts)$total.confirmed - ycount
```

Row {data-width=300}
-----------------------------------------------------------------------

### confirmed {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.confirmed,
  caption = paste0("Total confirmed cases (+", ncount, ")"),
  icon = "fas fa-ambulance",
  color = "purple"
)
```

### PCR tests {.value-box}
```{r}
valueBox(
  value = attributes(counts)$PCR.tested,
  caption = "Total PCR (Swab) Tests",
  icon = "fas fa-hospital-user",
  color = "#1f77b4"
)
```

### Antibody Tests {.value-box}
```{r}
valueBox(
  value = attributes(counts)$Antibody.tested,
  caption = "Total Antibody Tests",
  icon = "fas fa-hospital-user",
  color = "forestgreen"
)
```












### death {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.deaths,
  caption = "Death cases",
  icon = "fas fa-heart-broken",
  color = "#474747"
)
```


Row {data-height=600}
-----------------------------------------------------------------------
    
### Map
    
```{r}
caseMap(Counts, pubExposed, titlePos = NULL)
```

### Daily cumulative cases
```{r}
countPlot(historyCount)
```

Row
---------------------------------------------------------------------

### Zipcode cases
```{r}
library(DT)
datatable(Counts$zipCounts, options = list(scrollX = T))
```

### Town cases

```{r}
## library(knitr)
## library(kableExtra)
## kable(ctable1,
##       caption = "COVID19 cases (Erie county)") %>%
##     kable_styling(full_width = TRUE) %>% 
##     footnote(general = c(paste("Last updated:", attributes(counts)$update.time),
##                          "[Data Source](https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1)",
##                          "[Public Advisories](http://www2.erie.gov/health/index.php?q=public-advisories)",
##                          "The data is only for educational and academic research purposes.")) %>%
## scroll_box(height = "600px")
datatable(ctable1[,1:2], options = list(scrollX = T))
```

Row
----------------------------------------------------------------------

### Daily counts {.no-mobile}
```{r}
datatable(historyCount[order(historyCount$date, decreasing = TRUE),],
          extensions = 'Scroller',
          options = list(scrollX = TRUE))
```

### Daily counts {.mobile}
```{r}
library(knitr)
library(kableExtra)
kable(historyCount[order(historyCount$date, decreasing = TRUE),]) %>%
    kable_styling(font_size = 8)%>%
    scroll_box(height = "600px", width = "100%")
```